home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / bin / aclocal-1.4 < prev    next >
Text File  |  2005-10-16  |  11KB  |  456 lines
  1. #!/usr/bin/perl
  2. # -*- perl -*-
  3. # Generated automatically from aclocal.in by configure.
  4.  
  5. # aclocal - create aclocal.m4 by scanning configure.ac
  6. # Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002 Free Software Foundation, Inc.
  7.  
  8. # This program is free software; you can redistribute it and/or modify
  9. # it under the terms of the GNU General Public License as published by
  10. # the Free Software Foundation; either version 2, or (at your option)
  11. # any later version.
  12.  
  13. # This program is distributed in the hope that it will be useful,
  14. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. # GNU General Public License for more details.
  17.  
  18. # You should have received a copy of the GNU General Public License
  19. # along with this program; if not, write to the Free Software
  20. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  21. # 02111-1307, USA.
  22.  
  23. # Written by Tom Tromey <tromey@redhat.com>.
  24.  
  25. eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  26.     if 0;
  27.  
  28. # aclocal - scan configure.ac and generate aclocal.m4.
  29.  
  30. # Some constants.
  31. $VERSION = "1.4-p6";
  32. $APIVERSION = "1.4";
  33. $PACKAGE = "automake";
  34. $prefix = "/usr";
  35. # Note that this isn't pkgdatadir, but a separate directory.
  36. # Note also that the versioned directory is handled later.
  37. $acdir = "/usr/share/aclocal";
  38. $default_acdir = $acdir;
  39.  
  40. # Some globals.
  41.  
  42. # Exit status.
  43. $exit_status = 0;
  44.  
  45. # Text to output.
  46. $output = '';
  47.  
  48. # Output file name.
  49. $output_file = 'aclocal.m4';
  50.  
  51. # Which macros have been seen.
  52. %macro_seen = ();
  53.  
  54. # Which files have been seen.
  55. %file_seen = ();
  56.  
  57. # Map macro names to file names.
  58. %map = ();
  59.  
  60. # Map file names to file contents.
  61. %file_contents = ();
  62.  
  63. # How much to say.
  64. $verbosity = 0;
  65.  
  66. # Name of the top autoconf input: `configure.ac' or `configure.in'
  67. $configure_ac = '';
  68.  
  69. @obsolete_macros =
  70.     (
  71.      'AC_FEATURE_CTYPE',
  72.      'AC_FEATURE_ERRNO',
  73.      'AC_FEATURE_EXIT',
  74.      'AC_SYSTEM_HEADER',
  75.      'fp_C_PROTOTYPES',
  76.      'fp_FUNC_FNMATCH',
  77.      'fp_PROG_CC_STDC',
  78.      'fp_PROG_INSTALL',
  79.      'fp_WITH_DMALLOC',
  80.      'fp_WITH_REGEX',
  81.      'gm_PROG_LIBTOOL',
  82.      'jm_MAINTAINER_MODE',
  83.      'md_TYPE_PTRDIFF_T',
  84.      'ud_PATH_LISPDIR',
  85.      'ud_GNU_GETTEXT',
  86.  
  87.      # Now part of autoconf proper, under a different name.
  88.      'AM_FUNC_FNMATCH',
  89.      'AM_SANITY_CHECK_CC',
  90.      'AM_PROG_INSTALL',
  91.      'AM_EXEEXT',
  92.      'AM_CYGWIN32',
  93.      'AM_MINGW32',
  94.  
  95. # These aren't quite obsolete.
  96. #      'md_PATH_PROG',
  97. #      'ud_LC_MESSAGES',
  98. #      'ud_WITH_NLS'
  99.      );
  100.  
  101. $obsolete_rx = '\b(' . join ('|', @obsolete_macros) . ')\b';
  102.  
  103. # Matches a macro definition.
  104. $ac_defun_rx = "AC_DEFUN\\(\\[?([^],)\n]+)\\]?";
  105.  
  106. # Matches an AC_REQUIRE line.
  107. $ac_require_rx = "AC_REQUIRE\\(\\[?([^])]*)\\]?\\)";
  108.  
  109.  
  110.  
  111. local (@dirlist) = &parse_arguments (@ARGV);
  112. &scan_m4_files (@dirlist);
  113. &scan_configure;
  114. if (! $exit_status)
  115. {
  116.     &write_aclocal;
  117. }
  118. &check_acinclude;
  119.  
  120. exit $exit_status;
  121.  
  122. ################################################################
  123.  
  124. # Print usage and exit.
  125. sub usage
  126. {
  127.     local ($status) = @_;
  128.  
  129.     print "Usage: aclocal [OPTIONS] ...\n\n";
  130.     print "Generate aclocal.m4 by scanning configure.ac\n
  131.   --acdir=DIR           directory holding config files
  132.   --help                print this help, then exit
  133.   -I DIR                add directory to search list for .m4 files
  134.   --output=FILE         put output in FILE (default aclocal.m4)
  135.   --print-ac-dir        print name of directory holding m4 files
  136.   --verbose             don't be silent
  137.   --version             print version number, then exit
  138.  
  139. Report bugs to <bug-automake\@gnu.org>.\n";
  140.  
  141.     exit $status;
  142. }
  143.  
  144. # Parse command line.
  145. sub parse_arguments
  146. {
  147.     local (@arglist) = @_;
  148.     local (@dirlist);
  149.     local ($print_and_exit) = 0;
  150.  
  151.     while (@arglist)
  152.     {
  153.     if ($arglist[0] =~ /^--acdir=(.+)$/)
  154.     {
  155.         $acdir = $1;
  156.     }
  157.     elsif ($arglist[0] =~/^--output=(.+)$/)
  158.     {
  159.         $output_file = $1;
  160.     }
  161.     elsif ($arglist[0] eq '-I')
  162.     {
  163.         shift (@arglist);
  164.         push (@dirlist, $arglist[0]);
  165.     }
  166.     elsif ($arglist[0] eq '--print-ac-dir')
  167.     {
  168.         $print_and_exit = 1;
  169.     }
  170.     elsif ($arglist[0] eq '--verbose')
  171.     {
  172.         ++$verbosity;
  173.     }
  174.     elsif ($arglist[0] eq '--version')
  175.     {
  176.         print "aclocal (GNU $PACKAGE) $VERSION\n\n";
  177.         print "Copyright (C) 1999, 2001 Free Software Foundation, Inc.\n";
  178.         print "This is free software; see the source for copying conditions.  There is NO\n";
  179.         print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\n";
  180.         print "Written by Tom Tromey <tromey\@redhat.com>\n";
  181.         exit 0;
  182.     }
  183.     elsif ($arglist[0] eq '--help')
  184.     {
  185.         &usage (0);
  186.     }
  187.     else
  188.     {
  189.         die "aclocal: unrecognized option -- \`$arglist[0]'\nTry \`aclocal --help' for more information.\n";
  190.     }
  191.  
  192.     shift (@arglist);
  193.     }
  194.  
  195.     if ($print_and_exit)
  196.     {
  197.     print $acdir, "\n";
  198.     exit 0;
  199.     }
  200.  
  201.     # Search the versioned directory near the end, and then the
  202.     # unversioned directory last.  Only do this if the user didn't
  203.     # override acdir.
  204.     push (@dirlist, "$acdir-$APIVERSION")
  205.     if $acdir eq $default_acdir;
  206.  
  207.     # By default $(datadir)/aclocal doesn't exist.  We don't want to
  208.     # get an error in the case where we are searching the default
  209.     # directory and it hasn't been created.
  210.     push (@dirlist, $acdir)
  211.     unless $acdir eq $default_acdir && ! -d $acdir;
  212.  
  213.     return @dirlist;
  214. }
  215.  
  216. ################################################################
  217.  
  218. sub scan_configure
  219. {
  220.     warn "aclocal: both `configure.ac' and `configure.in' present:"
  221.          . " ignoring `configure.in'\n"
  222.          if -f 'configure.ac' && -f 'configure.in';
  223.     $configure_ac = 'configure.in'
  224.          if -f 'configure.in';
  225.     $configure_ac = 'configure.ac'
  226.          if -f 'configure.ac';
  227.     die "aclocal: `configure.ac' or `configure.in' is required\n"
  228.          if !$configure_ac;
  229.  
  230.     open (CONFIGURE, $configure_ac)
  231.     || die "aclocal: couldn't open \`$configure_ac': $!\n";
  232.  
  233.     # Make sure we include acinclude.m4 if it exists.
  234.     if (-f 'acinclude.m4')
  235.     {
  236.     &add_file ('acinclude.m4');
  237.     }
  238.  
  239.     while (<CONFIGURE>)
  240.     {
  241.     # Remove comments from current line.
  242.     s/\bdnl\b.*$//;
  243.     s/\#.*$//;
  244.  
  245.     if (/$obsolete_rx/o)
  246.     {
  247.         chop;
  248.         warn "aclocal: $configure_ac: $.: obsolete macro \`$_'\n";
  249.         $exit_status = 1;
  250.         next;
  251.     }
  252.  
  253.     # Search for things we know about.  The "search" sub is
  254.     # constructed dynamically by scan_m4_files.
  255.     if (! &search && /(^|\s+)(AM_[A-Z0-9_]+)/)
  256.     {
  257.         # Macro not found, but AM_ prefix found.
  258.         warn "aclocal: $configure_ac: $.: macro \`$2' not found in library\n";
  259.         $exit_status = 1;
  260.     }
  261.     }
  262.  
  263.     close (CONFIGURE);
  264. }
  265.  
  266. ################################################################
  267.  
  268. # Check macros in acinclude.m4.  If one is not used, warn.
  269. sub check_acinclude
  270. {
  271.     local ($key);
  272.  
  273.     foreach $key (keys %map)
  274.     {
  275.     next unless $map{$key} eq 'acinclude.m4';
  276.     if (! $macro_seen{$key})
  277.     {
  278.         # FIXME: should print line number of acinclude.m4.
  279.         warn "aclocal: macro \`$key' defined in acinclude.m4 but never used\n";
  280.     }
  281.     }
  282. }
  283.  
  284. ################################################################
  285.  
  286. # Scan all the installed m4 files and construct a map.
  287. sub scan_m4_files
  288. {
  289.     local (@dirlist) = @_;
  290.  
  291.     # First, scan acinclude.m4 if it exists.
  292.     if (-f 'acinclude.m4')
  293.     {
  294.     $file_contents{'acinclude.m4'} = &scan_file ('acinclude.m4');
  295.     }
  296.  
  297.     local ($m4dir);
  298.     foreach $m4dir (@dirlist)
  299.     {
  300.     opendir (DIR, $m4dir)
  301.         || die "aclocal: couldn't open directory \`$m4dir': $!\n";
  302.     local ($file, $fullfile, $expr);
  303.     foreach $file (sort grep (! /^\./, readdir (DIR)))
  304.     {
  305.         # Only examine .m4 files.
  306.         next unless $file =~ /\.m4$/;
  307.  
  308.         # Skip some files when running out of srcdir.
  309.         next if $file eq 'aclocal.m4';
  310.  
  311.         $fullfile = $m4dir . '/' . $file;
  312.         $file_contents{$fullfile} = &scan_file ($fullfile);
  313.     }
  314.     closedir (DIR);
  315.     }
  316.  
  317.     # Construct a new function that does the searching.  We use a
  318.     # function (instead of just evalling $search in the loop) so that
  319.     # "die" is correctly and easily propagated if run.
  320.     local ($search, $expr, $key) = '';
  321.     foreach $key (reverse sort keys %map)
  322.     {
  323.     # EXPR is a regexp matching the name of the macro.
  324.     ($expr = $key) =~ s/(\W)/\\$1/g;
  325.     $search .= ("if (/" . $expr . "/) { & add_macro (" . $key
  326.             . "); return 1; }\n");
  327.     }
  328.     $search .= "return 0;\n";
  329.     eval 'sub search { ' . $search . '};';
  330.     die "internal error: $@\n search is $search " if $@;
  331. }
  332.  
  333. ################################################################
  334.  
  335. # Add a macro to the output.
  336. sub add_macro
  337. {
  338.     local ($macro) = @_;
  339.  
  340.     # We want to ignore AC_ macros.  However, if an AC_ macro is
  341.     # defined in (eg) acinclude.m4, then we want to make sure we mark
  342.     # it as seen.
  343.     return if $macro =~ /^AC_/ && ! defined $map{$macro};
  344.  
  345.     if (! defined $map{$macro})
  346.     {
  347.     warn "aclocal: macro \`$macro' required but not defined\n";
  348.     $exit_status = 1;
  349.     return;
  350.     }
  351.  
  352.     print STDERR "saw macro $macro\n" if $verbosity;
  353.     $macro_seen{$macro} = 1;
  354.     &add_file ($map{$macro});
  355. }
  356.  
  357. # Add a file to output.
  358. sub add_file
  359. {
  360.     local ($file) = @_;
  361.  
  362.     # Only add a file once.
  363.     return if ($file_seen{$file});
  364.     $file_seen{$file} = 1;
  365.  
  366.     $output .= $file_contents{$file} . "\n";
  367.     local ($a, @rlist);
  368.     foreach (split ("\n", $file_contents{$file}))
  369.     {
  370.     # This is a hack for Perl 4.
  371.     $a = $_;
  372.     if ($a =~ /$ac_require_rx/g)
  373.     {
  374.         push (@rlist, $1);
  375.     }
  376.  
  377.     # This function constructed dynamically.
  378.     if (! &search && /(^|\s+)(AM_[A-Z0-9_]+)/)
  379.     {
  380.         # Macro not found, but AM_ prefix found.
  381.         warn "aclocal: $configure_ac: $.: macro \`$2' not found in library\n";
  382.         $exit_status = 1;
  383.     }
  384.     }
  385.  
  386.     local ($macro);
  387.     foreach $macro (@rlist)
  388.     {
  389.     &add_macro ($macro);
  390.     }
  391. }
  392.  
  393. # Scan a single M4 file.  Return contents.
  394. sub scan_file
  395. {
  396.     local ($file) = @_;
  397.  
  398.     open (FILE, $file)
  399.     || die "aclocal: couldn't open \`$file': $!\n";
  400.     local ($contents) = '';
  401.     while (<FILE>)
  402.     {
  403.     # Ignore `##' lines.
  404.     next if /^##/;
  405.  
  406.     $contents .= $_;
  407.  
  408.     if (/$ac_defun_rx/)
  409.     {
  410.         if (!defined $map{$1})
  411.         {
  412.         $map{$1} = $file;
  413.         }
  414.  
  415.         # Note: we used to give an error here if we saw a
  416.         # duplicated macro.  However, this turns out to be
  417.         # extremely unpopular.  It causes actual problems which
  418.         # are hard to work around, especially when you must
  419.         # mix-and-match tool versions.
  420.  
  421.         print STDERR "Found macro $1 in $file: $.\n" if $verbosity;
  422.     }
  423.     }
  424.     close (FILE);
  425.  
  426.     return $contents;
  427. }
  428.  
  429. ################################################################
  430.  
  431. # Write output.
  432. sub write_aclocal
  433. {
  434.     return if ! length ($output);
  435.  
  436.     print STDERR "Writing $output_file\n" if $verbosity;
  437.  
  438.     open (ACLOCAL, "> " . $output_file)
  439.     || die "aclocal: couldn't open \`$output_file' for writing: $!\n";
  440.     print ACLOCAL "dnl $output_file generated automatically by aclocal $VERSION\n";
  441.     print ACLOCAL "\
  442. dnl Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc.
  443. dnl This file is free software; the Free Software Foundation
  444. dnl gives unlimited permission to copy and/or distribute it,
  445. dnl with or without modifications, as long as this notice is preserved.
  446.  
  447. dnl This program is distributed in the hope that it will be useful,
  448. dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without
  449. dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A
  450. dnl PARTICULAR PURPOSE.
  451.  
  452. ";
  453.     print ACLOCAL $output;
  454.     close (ACLOCAL);
  455. }
  456.